home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / 6Sph.ray < prev    next >
Text File  |  1999-07-06  |  2KB  |  66 lines
  1. Viewpoint(1000, 0.5, -0.9)
  2. AmbientLight(50, 50, 50)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. ' Sphere 1.
  6. Sphere( 50, 
  7.   25.00, 0, 43.30, 
  8.   0.6, 0.0, 0.0, ' Ambient
  9.   0.6, 0.0, 0.0, ' Diffuse
  10.   20, 0.35,      ' Specular.
  11.   0, 0, 0,       ' Reflected.
  12.   3, 1, 1.4,     ' TransN, n1, n2.
  13.   0, 0, 0        ' Tansmission.
  14. )
  15. ' Sphere 2.
  16. Sphere( 50, 
  17.   -25.00, 0, 43.30, 
  18.   0.5, 0.5, 0.0, ' Ambient
  19.   0.5, 0.5, 0.0, ' Diffuse
  20.   20, 0.35,      ' Specular.
  21.   0, 0, 0,       ' Reflected.
  22.   3, 1, 1.4,     ' TransN, n1, n2.
  23.   0, 0, 0        ' Tansmission.
  24. )
  25. ' Sphere 3.
  26. Sphere( 50, 
  27.   -50.00, 0, 0.00, 
  28.   0.0, 0.6, 0.0, ' Ambient
  29.   0.0, 0.6, 0.0, ' Diffuse
  30.   20, 0.35,      ' Specular.
  31.   0, 0, 0,       ' Reflected.
  32.   3, 1, 1.4,     ' TransN, n1, n2.
  33.   0, 0, 0        ' Tansmission.
  34. )
  35. ' Sphere 4.
  36. Sphere( 50, 
  37.   -25.00, 0, -43.30, 
  38.   0.0, 0.6, 0.6, ' Ambient
  39.   0.0, 0.6, 0.6, ' Diffuse
  40.   20, 0.35,      ' Specular.
  41.   0, 0, 0,       ' Reflected.
  42.   3, 1, 1.4,     ' TransN, n1, n2.
  43.   0, 0, 0        ' Tansmission.
  44. )
  45. ' Sphere 5.
  46. Sphere( 50, 
  47.   25.00, 0, -43.30, 
  48.   0.0, 0.0, 0.6, ' Ambient
  49.   0.0, 0.0, 0.6, ' Diffuse
  50.   20, 0.35,      ' Specular.
  51.   0, 0, 0,       ' Reflected.
  52.   3, 1, 1.4,     ' TransN, n1, n2.
  53.   0, 0, 0        ' Tansmission.
  54. )
  55. ' Sphere 6.
  56. Sphere( 50, 
  57.   50.00, 0, 0.00, 
  58.   0.6, 0.0, 0.6, ' Ambient
  59.   0.6, 0.0, 0.6, ' Diffuse
  60.   20, 0.35,      ' Specular.
  61.   0, 0, 0,       ' Reflected.
  62.   3, 1, 1.4,     ' TransN, n1, n2.
  63.   0, 0, 0        ' Tansmission.
  64. )
  65.  
  66.